(QUIT): Throw t to Vthrow_on_input.

diff --git a/src/lisp.h b/src/lisp.h
index 375e0e9cb9b8d5387b539b46652730b800a7a67a..70f5ddffa947053f5b7a7e5b7e95dd202b8a420d 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1797,7 +1797,7 @@ extern int interrupt_input_pending;
         Lisp_Object flag = Vquit_flag;                 \
        Vquit_flag = Qnil;                              \
        if (EQ (Vthrow_on_input, flag))                 \
-         Fthrow (Vthrow_on_input, Qnil);               \
+         Fthrow (Vthrow_on_input, Qt);                 \
        Fsignal (Qquit, Qnil);                          \
       }                                                        \
     else if (interrupt_input_pending)                  \